home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / Astromacronomer ••• / BASIC Runtime / BASIC Runtime.rsrc / CODE_27.txt < prev    next >
Text File  |  1986-09-30  |  30KB  |  576 lines
  1. # near model CODE resource
  2. # jump table entries: 4464-4473 (10 of them)
  3. export_558:
  4. 00000000  7E04                     moveq.l    D7, 0x04
  5. 00000002  6006                     bra        +0x8 /* 0000000A */
  6. export_559:
  7. 00000004  7E03                     moveq.l    D7, 0x03
  8. 00000006  6002                     bra        +0x4 /* 0000000A */
  9. 00000008  7E01                     moveq.l    D7, 0x01
  10. label0000000A:
  11. 0000000A  526D FE7A                addq.w     [A5 - 0x186], 1
  12. 0000000E  48E7 B000                movem.l    -[A7], D0,D2,D3
  13. 00000012  2407                     move.l     D2, D7
  14. 00000014  4EAD 049A                jsr        [A5 + 0x49A /* export_143 */]
  15. 00000018  7EFF                     moveq.l    D7, 0xFFFFFFFF
  16. 0000001A  4207                     clr.b      D7
  17. 0000001C  E5BF                     rol        D7, D2
  18. 0000001E  47ED F206                lea.l      A3, [A5 - 0xDFA]
  19. 00000022  4223                     clr.b      -[A3]
  20. label00000024:
  21. 00000024  1003                     move.b     D0, D3
  22. 00000026  C007                     and.b      D0, D7
  23. 00000028  0600 0030                addi.b     D0, 0x30 /* '0' */
  24. 0000002C  0C00 0039                cmpi.b     D0, 0x39 /* '9' */
  25. 00000030  6304                     bls        +0x6 /* 00000036 */
  26. 00000032  0600 0007                addi.b     D0, 0x7
  27. label00000036:
  28. 00000036  1700                     move.b     -[A3], D0
  29. 00000038  E46B                     lsr        D3.w, D2
  30. 0000003A  66E8                     bne        -0x16 /* 00000024 */
  31. 0000003C  4CDF 000D                movem.l    D0,D2,D3, [A7]+
  32. 00000040  536D FE7A                subq.w     [A5 - 0x186], 1
  33. 00000044  4E75                     rts
  34. export_560:
  35. 00000046  526D FE7A                addq.w     [A5 - 0x186], 1
  36. 0000004A  48E7 F048                movem.l    -[A7], D0,D1,D2,D3,A1,A4
  37. 0000004E  6100 00CC                bsr        +0xCE /* 0000011C */
  38. 00000052  76F9                     moveq.l    D3, 0xFFFFFFF9
  39. 00000054  7007                     moveq.l    D0, 0x07
  40. 00000056  0C2D 0008 ECFB           cmpi.b     [A5 - 0x1305], 0x8
  41. 0000005C  6604                     bne        +0x6 /* 00000062 */
  42. 0000005E  76F0                     moveq.l    D3, 0xFFFFFFF0
  43. 00000060  7010                     moveq.l    D0, 0x10
  44. label00000062:
  45. 00000062  6100 011E                bsr        +0x120 /* 00000182 */
  46. 00000066  3200                     move.w     D1, D0
  47. 00000068  B443                     cmp.w      D2, D3
  48. 0000006A  6D46                     blt        +0x48 /* 000000B2 */
  49. 0000006C  3E00                     move.w     D7, D0
  50. 0000006E  DE42                     add.w      D7, D2
  51. 00000070  4443                     neg.w      D3
  52. 00000072  BE43                     cmp.w      D7, D3
  53. 00000074  6E3C                     bgt        +0x3E /* 000000B2 */
  54. 00000076  3007                     move.w     D0, D7
  55. 00000078  5341                     subq.w     D1, 1
  56. 0000007A  5340                     subq.w     D0, 1
  57. 0000007C  6B2E                     bmi        +0x30 /* 000000AC */
  58. label0000007E:
  59. 0000007E  18DB                     move.b     [A4]+, [A3]+
  60. 00000080  5381                     subq.l     D1, 1
  61. 00000082  5380                     subq.l     D0, 1
  62. 00000084  2E00                     move.l     D7, D0
  63. 00000086  8E81                     or.l       D7, D1
  64. 00000088  6AF4                     bpl        -0xA /* 0000007E */
  65. 0000008A  6100 0082                bsr        +0x84 /* 0000010E */
  66. 0000008E  4A41                     tst.w      D1
  67. 00000090  6B0A                     bmi        +0xC /* 0000009C */
  68. label00000092:
  69. 00000092  18FC 002E                move.b     [A4]+, 0x2E /* '.' */
  70. 00000096  6176                     bsr        +0x78 /* 0000010E */
  71. 00000098  3001                     move.w     D0, D1
  72. 0000009A  6166                     bsr        +0x68 /* 00000102 */
  73. label0000009C:
  74. 0000009C  4214                     clr.b      [A4]
  75. 0000009E  47ED F1EC                lea.l      A3, [A5 - 0xE14]
  76. 000000A2  4CDF 120F                movem.l    D0,D1,D2,D3,A1,A4, [A7]+
  77. 000000A6  536D FE7A                subq.w     [A5 - 0x186], 1
  78. 000000AA  4E75                     rts
  79. label000000AC:
  80. 000000AC  4440                     neg.w      D0
  81. 000000AE  5540                     subq.w     D0, 2
  82. 000000B0  60E0                     bra        -0x1E /* 00000092 */
  83. label000000B2:
  84. 000000B2  18DB                     move.b     [A4]+, [A3]+
  85. 000000B4  5380                     subq.l     D0, 1
  86. 000000B6  D440                     add.w      D2, D0
  87. 000000B8  5380                     subq.l     D0, 1
  88. 000000BA  6B06                     bmi        +0x8 /* 000000C2 */
  89. 000000BC  18FC 002E                move.b     [A4]+, 0x2E /* '.' */
  90. 000000C0  6140                     bsr        +0x42 /* 00000102 */
  91. label000000C2:
  92. 000000C2  6102                     bsr        +0x4 /* 000000C6 */
  93. 000000C4  60D6                     bra        -0x28 /* 0000009C */
  94. export_563:
  95. fn000000C6:
  96. 000000C6  7E45                     moveq.l    D7, 0x45
  97. 000000C8  0C2D 0008 ECFB           cmpi.b     [A5 - 0x1305], 0x8
  98. 000000CE  6602                     bne        +0x4 /* 000000D2 */
  99. 000000D0  7E44                     moveq.l    D7, 0x44
  100. label000000D2:
  101. 000000D2  18C7                     move.b     [A4]+, D7
  102. 000000D4  7E2B                     moveq.l    D7, 0x2B
  103. 000000D6  48C2                     ext.l      D2
  104. 000000D8  6A04                     bpl        +0x6 /* 000000DE */
  105. 000000DA  4482                     neg.l      D2
  106. 000000DC  7E2D                     moveq.l    D7, 0x2D
  107. label000000DE:
  108. 000000DE  18C7                     move.b     [A4]+, D7
  109. 000000E0  84FC 0064                divu.w     D2, 0x64 /* 'd' */
  110. 000000E4  6708                     beq        +0xA /* 000000EE */
  111. 000000E6  0642 0030                addi.w     D2, 0x30 /* '0' */
  112. 000000EA  18C2                     move.b     [A4]+, D2
  113. 000000EC  4242                     clr.w      D2
  114. label000000EE:
  115. 000000EE  4842                     swap.w     D2
  116. 000000F0  84FC 000A                divu.w     D2, 0xA /* '\n' */
  117. 000000F4  0682 0030 0030           addi.l     D2, 0x300030 /* '0\00' */
  118. 000000FA  18C2                     move.b     [A4]+, D2
  119. 000000FC  4842                     swap.w     D2
  120. 000000FE  18C2                     move.b     [A4]+, D2
  121. 00000100  4E75                     rts
  122. fn00000102:
  123. 00000102  4A40                     tst.w      D0
  124. 00000104  6B06                     bmi        +0x8 /* 0000010C */
  125. label00000106:
  126. 00000106  18DB                     move.b     [A4]+, [A3]+
  127. 00000108  51C8 FFFC                dbf        D0, -0x6 /* 00000106 */
  128. label0000010C:
  129. 0000010C  4E75                     rts
  130. fn0000010E:
  131. 0000010E  7E30                     moveq.l    D7, 0x30
  132. export_564:
  133. 00000110  4A40                     tst.w      D0
  134. 00000112  6B06                     bmi        +0x8 /* 0000011A */
  135. label00000114:
  136. 00000114  18C7                     move.b     [A4]+, D7
  137. 00000116  51C8 FFFC                dbf        D0, -0x6 /* 00000114 */
  138. label0000011A:
  139. 0000011A  4E75                     rts
  140. export_561:
  141. fn0000011C:
  142. 0000011C  526D FE7A                addq.w     [A5 - 0x186], 1
  143. 00000120  2F08                     move.l     -[A7], A0
  144. 00000122  2B4F F1E8                move.l     [A5 - 0xE18], A7
  145. 00000126  48E7 9040                movem.l    -[A7], D0,D3,A1
  146. 0000012A  162D ECFB                move.b     D3, [A5 - 0x1305]
  147. 0000012E  486D F1F4                pea.l      [A5 - 0xE0C]
  148. 00000132  4EAD 01CA                jsr        [A5 + 0x1CA /* export_53 */]
  149. 00000136  2F2D ECAA                move.l     -[A7], [A5 - 0x1356]
  150. 0000013A  2F2D ECA6                move.l     -[A7], [A5 - 0x135A]
  151. 0000013E  6100 00EE                bsr        +0xF0 /* 0000022E */
  152. 00000142  DEFC 000C                add.w      A7, 0xC
  153. 00000146  43ED F1F4                lea.l      A1, [A5 - 0xE0C]
  154. 0000014A  3019                     move.w     D0, [A1]+
  155. 0000014C  1B40 F1EC                move.b     [A5 - 0xE14], D0
  156. 00000150  3419                     move.w     D2, [A1]+
  157. 00000152  5489                     addq.l     A1, 2
  158. 00000154  2651                     movea.l    A3, [A1]
  159. 00000156  224B                     movea.l    A1, A3
  160. 00000158  72FF                     moveq.l    D1, 0xFFFFFFFF
  161. label0000015A:
  162. 0000015A  5281                     addq.l     D1, 1
  163. 0000015C  5342                     subq.w     D2, 1
  164. 0000015E  4A19                     tst.b      [A1]+
  165. 00000160  66F8                     bne        -0x6 /* 0000015A */
  166. 00000162  5242                     addq.w     D2, 1
  167. 00000164  0C13 0030                cmpi.b     [A3], 0x30 /* '0' */
  168. 00000168  6608                     bne        +0xA /* 00000172 */
  169. 0000016A  0C42 FFFF                cmpi.w     D2, 0xFFFF
  170. 0000016E  6602                     bne        +0x4 /* 00000172 */
  171. 00000170  5242                     addq.w     D2, 1
  172. label00000172:
  173. 00000172  1B43 ECFB                move.b     [A5 - 0x1305], D3
  174. 00000176  4CDF 0209                movem.l    D0,D3,A1, [A7]+
  175. 0000017A  205F                     movea.l    A0, [A7]+
  176. 0000017C  536D FE7A                subq.w     [A5 - 0x186], 1
  177. 00000180  4E75                     rts
  178. export_562:
  179. fn00000182:
  180. 00000182  526D FE7A                addq.w     [A5 - 0x186], 1
  181. 00000186  2F01                     move.l     -[A7], D1
  182. 00000188  284B                     movea.l    A4, A3
  183. 0000018A  D8C1                     add.w      A4, D1
  184. 0000018C  B041                     cmp.w      D0, D1
  185. 0000018E  642A                     bcc        +0x2C /* 000001BA */
  186. 00000190  C141                     exg        D0, D1
  187. 00000192  9081                     sub.l      D0, D1
  188. 00000194  D440                     add.w      D2, D0
  189. 00000196  99C0                     sub.l      A4, D0
  190. 00000198  1014                     move.b     D0, [A4]
  191. 0000019A  0C00 0035                cmpi.b     D0, 0x35 /* '5' */
  192. 0000019E  651A                     bcs        +0x1C /* 000001BA */
  193. 000001A0  4A41                     tst.w      D1
  194. 000001A2  6710                     beq        +0x12 /* 000001B4 */
  195. label000001A4:
  196. 000001A4  1024                     move.b     D0, -[A4]
  197. 000001A6  5200                     addq.b     D0, 1
  198. 000001A8  0C00 0039                cmpi.b     D0, 0x39 /* '9' */
  199. 000001AC  630A                     bls        +0xC /* 000001B8 */
  200. 000001AE  5242                     addq.w     D2, 1
  201. 000001B0  5341                     subq.w     D1, 1
  202. 000001B2  66F0                     bne        -0xE /* 000001A4 */
  203. label000001B4:
  204. 000001B4  5241                     addq.w     D1, 1
  205. 000001B6  7031                     moveq.l    D0, 0x31
  206. label000001B8:
  207. 000001B8  18C0                     move.b     [A4]+, D0
  208. label000001BA:
  209. 000001BA  3001                     move.w     D0, D1
  210. label000001BC:
  211. 000001BC  0C24 0030                cmpi.b     -[A4], 0x30 /* '0' */
  212. 000001C0  6604                     bne        +0x6 /* 000001C6 */
  213. 000001C2  5340                     subq.w     D0, 1
  214. 000001C4  66F6                     bne        -0x8 /* 000001BC */
  215. label000001C6:
  216. 000001C6  9240                     sub.w      D1, D0
  217. 000001C8  D441                     add.w      D2, D1
  218. 000001CA  49ED F1ED                lea.l      A4, [A5 - 0xE13]
  219. 000001CE  221F                     move.l     D1, [A7]+
  220. 000001D0  536D FE7A                subq.w     [A5 - 0x186], 1
  221. 000001D4  4E75                     rts
  222. fn000001D6:
  223. 000001D6  2E2E 0008                move.l     D7, [A6 + 0x8]
  224. 000001DA  2C2E 000C                move.l     D6, [A6 + 0xC]
  225. 000001DE  4282                     clr.l      D2
  226. 000001E0  383C 000A                move.w     D4, 0xA /* '\n' */
  227. label000001E4:
  228. 000001E4  E38E                     lsl        D6, 1
  229. 000001E6  E397                     roxl       D7, 1
  230. 000001E8  E352                     roxl       D2.w, 1
  231. 000001EA  51CC FFF8                dbf        D4, -0xA /* 000001E4 */
  232. 000001EE  E38F                     lsl        D7, 1
  233. 000001F0  E352                     roxl       D2.w, 1
  234. 000001F2  E28F                     lsr        D7, 1
  235. 000001F4  4A42                     tst.w      D2
  236. 000001F6  6704                     beq        +0x6 /* 000001FC */
  237. 000001F8  08C7 001F                bset.b     D7, 0x1F
  238. label000001FC:
  239. 000001FC  0442 03FE                subi.w     D2, 0x3FE
  240. 00000200  3D42 FFF6                move.w     [A6 - 0xA], D2
  241. 00000204  2D47 FFF8                move.l     [A6 - 0x8], D7
  242. 00000208  2D46 FFFC                move.l     [A6 - 0x4], D6
  243. 0000020C  4E75                     rts
  244. 0000020E  FFFD                     .invalid   <<F/7/7>>
  245. 00000210  CCCC                     mulu.w     D6, A4
  246. 00000212  CCCC                     mulu.w     D6, A4
  247. 00000214  CCCC                     mulu.w     D6, A4
  248. 00000216  CCCD                     mulu.w     D6, A5
  249. label00000218:
  250. 00000218  286E 0010                movea.l    A4, [A6 + 0x10]
  251. 0000021C  41EC 000A                lea.l      A0, [A4 + 0xA]
  252. 00000220  30BC 3000                move.w     [A0], 0x3000 /* '0\0' */
  253. 00000224  397C 0000 0002           move.w     [A4 + 0x2], 0x0
  254. 0000022A  6000 0108                bra        +0x10A /* 00000334 */
  255. export_565:
  256. fn0000022E:
  257. 0000022E  4E56 FFF6                link       A6, -0x000A
  258. 00000232  48E7 3F38                movem.l    -[A7], D2,D3,D4,D5,D6,D7,A2,A3,A4
  259. 00000236  342E 0008                move.w     D2, [A6 + 0x8]
  260. 0000023A  026E 7FFF 0008           andi.w     [A6 + 0x8], 0x7FFF
  261. 00000240  7220                     moveq.l    D1, 0x20
  262. 00000242  E38A                     lsl        D2, 1
  263. 00000244  0242 FFE0                andi.w     D2, 0xFFE0
  264. 00000248  6708                     beq        +0xA /* 00000252 */
  265. 0000024A  0802 0010                btst.b     D2, 0x10
  266. 0000024E  6702                     beq        +0x4 /* 00000252 */
  267. 00000250  722D                     moveq.l    D1, 0x2D
  268. label00000252:
  269. 00000252  6100 FF82                bsr        -0x7C /* 000001D6 */
  270. 00000256  4841                     swap.w     D1
  271. 00000258  4282                     clr.l      D2
  272. 0000025A  142E FFF8                move.b     D2, [A6 - 0x8]
  273. 0000025E  6AB8                     bpl        -0x46 /* 00000218 */
  274. 00000260  382E FFF6                move.w     D4, [A6 - 0xA]
  275. 00000264  0644 3FFE                addi.w     D4, 0x3FFE
  276. 00000268  3A04                     move.w     D5, D4
  277. 0000026A  C8FC 4D10                mulu.w     D4, 0x4D10
  278. 0000026E  E04D                     lsr        D5.w, 8
  279. 00000270  CAFC 004D                mulu.w     D5, 0x4D /* 'M' */
  280. 00000274  D885                     add.l      D4, D5
  281. 00000276  C4FC 009A                mulu.w     D2, 0x9A
  282. 0000027A  D484                     add.l      D2, D4
  283. 0000027C  0482 1343 12F4           subi.l     D2, 0x134312F4
  284. 00000282  4842                     swap.w     D2
  285. 00000284  3202                     move.w     D1, D2
  286. 00000286  4442                     neg.w      D2
  287. 00000288  6100 021A                bsr        +0x21C /* 000004A4 */
  288. 0000028C  0C6E 0000 FFF6           cmpi.w     [A6 - 0xA], 0x0
  289. 00000292  6D22                     blt        +0x24 /* 000002B6 */
  290. 00000294  6E16                     bgt        +0x18 /* 000002AC */
  291. 00000296  0CAE FFFF FFFF FFF8      cmpi.l     [A6 - 0x8], 0xFFFFFFFF
  292. 0000029E  6B16                     bmi        +0x18 /* 000002B6 */
  293. 000002A0  620A                     bhi        +0xC /* 000002AC */
  294. 000002A2  0CAE FFFF FC66 FFFC      cmpi.l     [A6 - 0x4], 0xFFFFFC66
  295. 000002AA  6B0A                     bmi        +0xC /* 000002B6 */
  296. label000002AC:
  297. 000002AC  5241                     addq.w     D1, 1
  298. 000002AE  47FA FF5E                lea.l      A3, [PC - 0xA2 /* 0000020E, value 0xFFFDCCCC */]
  299. 000002B2  6100 00A0                bsr        +0xA2 /* 00000354 */
  300. label000002B6:
  301. 000002B6  342E FFF6                move.w     D2, [A6 - 0xA]
  302. 000002BA  2E2E FFF8                move.l     D7, [A6 - 0x8]
  303. 000002BE  2C2E FFFC                move.l     D6, [A6 - 0x4]
  304. 000002C2  4442                     neg.w      D2
  305. 000002C4  4244                     clr.w      D4
  306. 000002C6  6006                     bra        +0x8 /* 000002CE */
  307. label000002C8:
  308. 000002C8  E28F                     lsr        D7, 1
  309. 000002CA  E296                     roxr       D6, 1
  310. 000002CC  E254                     roxr       D4.w, 1
  311. label000002CE:
  312. 000002CE  51CA FFF8                dbf        D2, -0xA /* 000002C8 */
  313. 000002D2  0644 5600                addi.w     D4, 0x5600 /* 'V\0' */
  314. 000002D6  243C 0000 039A           move.l     D2, 0x39A
  315. 000002DC  DD82                     addx.l     D6, D2
  316. 000002DE  4282                     clr.l      D2
  317. 000002E0  DF82                     addx.l     D7, D2
  318. 000002E2  286E 0010                movea.l    A4, [A6 + 0x10]
  319. 000002E6  41EC 000A                lea.l      A0, [A4 + 0xA]
  320. 000002EA  343C 000F                move.w     D2, 0xF
  321. label000002EE:
  322. 000002EE  4240                     clr.w      D0
  323. 000002F0  2247                     movea.l    A1, D7
  324. 000002F2  2446                     movea.l    A2, D6
  325. 000002F4  3A04                     move.w     D5, D4
  326. 000002F6  E34C                     lsl        D4.w, 1
  327. 000002F8  E396                     roxl       D6, 1
  328. 000002FA  E397                     roxl       D7, 1
  329. 000002FC  E310                     roxl       D0.b, 1
  330. 000002FE  E34C                     lsl        D4.w, 1
  331. 00000300  E396                     roxl       D6, 1
  332. 00000302  E397                     roxl       D7, 1
  333. 00000304  E310                     roxl       D0.b, 1
  334. 00000306  D845                     add.w      D4, D5
  335. 00000308  2A0A                     move.l     D5, A2
  336. 0000030A  DD85                     addx.l     D6, D5
  337. 0000030C  2A09                     move.l     D5, A1
  338. 0000030E  DF85                     addx.l     D7, D5
  339. 00000310  4243                     clr.w      D3
  340. 00000312  D143                     addx.w     D0, D3
  341. 00000314  E34C                     lsl        D4.w, 1
  342. 00000316  E396                     roxl       D6, 1
  343. 00000318  E397                     roxl       D7, 1
  344. 0000031A  E310                     roxl       D0.b, 1
  345. 0000031C  0600 0030                addi.b     D0, 0x30 /* '0' */
  346. 00000320  10C0                     move.b     [A0]+, D0
  347. 00000322  51CA FFCA                dbf        D2, -0x38 /* 000002EE */
  348. 00000326  103C 0030                move.b     D0, 0x30 /* '0' */
  349. label0000032A:
  350. 0000032A  B020                     cmp.b      D0, -[A0]
  351. 0000032C  67FC                     beq        -0x2 /* 0000032A */
  352. 0000032E  117C 0000 0001           move.b     [A0 + 0x1], 0x0
  353. label00000334:
  354. 00000334  3941 0002                move.w     [A4 + 0x2], D1
  355. 00000338  41EC 000A                lea.l      A0, [A4 + 0xA]
  356. 0000033C  2948 0006                move.l     [A4 + 0x6], A0
  357. 00000340  4841                     swap.w     D1
  358. 00000342  3941 0000                move.w     [A4 + 0x0], D1
  359. 00000346  397C 0000 0004           move.w     [A4 + 0x4], 0x0
  360. 0000034C  4CDF 1CFC                movem.l    D2,D3,D4,D5,D6,D7,A2,A3,A4, [A7]+
  361. 00000350  4E5E                     unlink     A6
  362. 00000352  4E75                     rts
  363. fn00000354:
  364. 00000354  4E55 FFF0                link       A5, -0x0010
  365. 00000358  244D                     movea.l    A2, A5
  366. 0000035A  42A2                     clr.l      -[A2]
  367. 0000035C  42A2                     clr.l      -[A2]
  368. 0000035E  42A2                     clr.l      -[A2]
  369. 00000360  42A2                     clr.l      -[A2]
  370. 00000362  342E FFF6                move.w     D2, [A6 - 0xA]
  371. 00000366  D453                     add.w      D2, [A3]
  372. 00000368  7806                     moveq.l    D4, 0x06
  373. 0000036A  598D                     subq.l     A5, 4
  374. label0000036C:
  375. 0000036C  2C04                     move.l     D6, D4
  376. 0000036E  5786                     subq.l     D6, 3
  377. 00000370  6B02                     bmi        +0x4 /* 00000374 */
  378. 00000372  4486                     neg.l      D6
  379. label00000374:
  380. 00000374  5686                     addq.l     D6, 3
  381. 00000376  45EB 0004                lea.l      A2, [A3 + 0x4]
  382. 0000037A  49EE FFF8                lea.l      A4, [A6 - 0x8]
  383. 0000037E  D5C4                     add.l      A2, D4
  384. 00000380  D5C6                     add.l      A2, D6
  385. 00000382  D9C4                     add.l      A4, D4
  386. 00000384  99C6                     sub.l      A4, D6
  387. label00000386:
  388. 00000386  3E1C                     move.w     D7, [A4]+
  389. 00000388  CEE2                     mulu.w     D7, -[A2]
  390. 0000038A  DF95                     add.l      [A5], D7
  391. 0000038C  6406                     bcc        +0x8 /* 00000394 */
  392. 0000038E  066D 0001 FFFE           addi.w     [A5 - 0x2], 0x1
  393. label00000394:
  394. 00000394  51CE FFF0                dbf        D6, -0x12 /* 00000386 */
  395. 00000398  558D                     subq.l     A5, 2
  396. 0000039A  51CC FFD0                dbf        D4, -0x32 /* 0000036C */
  397. 0000039E  DBFC 0000 0012           add.l      A5, 0x12
  398. 000003A4  3C2D FFFE                move.w     D6, [A5 - 0x2]
  399. 000003A8  8C6D FFFC                or.w       D6, [A5 - 0x4]
  400. 000003AC  282D FFF8                move.l     D4, [A5 - 0x8]
  401. 000003B0  8846                     or.w       D4, D6
  402. 000003B2  2C2D FFF4                move.l     D6, [A5 - 0xC]
  403. 000003B6  2E2D FFF0                move.l     D7, [A5 - 0x10]
  404. 000003BA  6B08                     bmi        +0xA /* 000003C4 */
  405. 000003BC  5342                     subq.w     D2, 1
  406. 000003BE  E38C                     lsl        D4, 1
  407. 000003C0  E396                     roxl       D6, 1
  408. 000003C2  E397                     roxl       D7, 1
  409. label000003C4:
  410. 000003C4  0C84 8000 0000           cmpi.l     D4, 0x80000000
  411. 000003CA  6514                     bcs        +0x16 /* 000003E0 */
  412. 000003CC  0806 0000                btst.b     D6, 0x0
  413. 000003D0  670E                     beq        +0x10 /* 000003E0 */
  414. 000003D2  4280                     clr.l      D0
  415. 000003D4  5286                     addq.l     D6, 1
  416. 000003D6  DF80                     addx.l     D7, D0
  417. 000003D8  6406                     bcc        +0x8 /* 000003E0 */
  418. 000003DA  5242                     addq.w     D2, 1
  419. 000003DC  08C7 001F                bset.b     D7, 0x1F
  420. label000003E0:
  421. 000003E0  3D42 FFF6                move.w     [A6 - 0xA], D2
  422. 000003E4  2D47 FFF8                move.l     [A6 - 0x8], D7
  423. 000003E8  2D46 FFFC                move.l     [A6 - 0x4], D6
  424. 000003EC  4E5D                     unlink     A5
  425. 000003EE  4E75                     rts
  426. 000003F0  0004 A000                ori.b      D4, 0x0
  427. 000003F4  0000 0000                ori.b      D0, 0x0
  428. 000003F8  0000 0007                ori.b      D0, 0x7
  429. 000003FC  C800                     and.b      D4, D0
  430. 000003FE  0000 0000                ori.b      D0, 0x0
  431. 00000402  0000 000E                ori.b      D0, 0xE
  432. 00000406  9C40                     sub.w      D6, D0
  433. 00000408  0000 0000                ori.b      D0, 0x0
  434. 0000040C  0000 001B                ori.b      D0, 0x1B
  435. 00000410  BEBC 2000 0000           cmp.l      D7, 0x20000000 /* ' \0\0\0' */
  436. 00000416  0000 0036                ori.b      D0, 0x36 /* '6' */
  437. 0000041A  8E1B                     or.b       D7, [A3]+
  438. 0000041C  C9BF                     and.l      <<invalid special address>>, D4
  439. 0000041E  0400 0000                subi.b     D0, 0x0
  440. 00000422  006B 9DC5 ADA8           ori.w      [A3 - 0x5258], 0x9DC5
  441. 00000428  2B70 B59E 00D5 C278      move.l     [A5 - 0x3D88], [[] + A3 * 4 + 0xD5]
  442. 00000430  1F49 FFCF                move.b     [A7 - 0x31], A1
  443. 00000434  A6D5                     syscall    vRelNode, flags=6
  444. 00000436  01AA 93BA                bclr       [A2 - 0x6C46], D0
  445. 0000043A  47C9                     lea.l      A3, A1
  446. 0000043C  80E9 8CE0                divu.w     D0, [A1 - 0x7320]
  447. 00000440  0353                     bchg       [A3], D1
  448. 00000442  AA7E                     syscall    0xA7E
  449. 00000444  EBFB 9DF9 DE8E           bfexts     D1, [PC + A5 * 8 - 0x114] {D7:D1}
  450. 0000044A  FFFD                     .invalid   <<F/7/7>>
  451. 0000044C  CCCC                     mulu.w     D6, A4
  452. 0000044E  CCCC                     mulu.w     D6, A4
  453. 00000450  CCCC                     mulu.w     D6, A4
  454. 00000452  CCCD                     mulu.w     D6, A5
  455. 00000454  FFFA                     .invalid   <<F/7/7>>
  456. 00000456  A3D7                     syscall    vFreeNode, flags=3
  457. 00000458  0A3D 70A3                xori.b     <<invalid special address>>, 0xA3
  458. 0000045C  D70A                     addx.b     -[A3], -[A2]
  459. 0000045E  FFF3                     .invalid   <<F/7/7>>
  460. 00000460  D1B7 1758                add.l      [A7], D0
  461. 00000464  E219                     ror        D1.b, 1
  462. 00000466  652C                     bcs        +0x2E /* 00000494 */
  463. 00000468  FFE6                     .invalid   <<F/7/7>>
  464. 0000046A  ABCC                     syscall    PBBlockMove
  465. 0000046C  7711                     moveq.l    D3, 0x11
  466. 0000046E  8461                     or.w       D2, -[A1]
  467. 00000470  CEFD                     mulu.w     D7, <<invalid special address>>
  468. 00000472  FFCB                     .invalid   <<F/7/7>>
  469. 00000474  E695                     roxr       D5, 3
  470. 00000476  94BE                     sub.l      D2, <<invalid special address>>
  471. 00000478  C44D                     and.w      D2, A5
  472. 0000047A  E15B                     rol        D3.w, 8
  473. 0000047C  FF96                     .invalid   <<F/6/7>>
  474. 0000047E  CFB1 1EAD                and.l      [A1 + D1 * 8 - 0x83], D7
  475. 00000482  4539 94BA FF2C           .invalid   2, [0x94BAFF2C] // invalid opcode 4 with b == 4
  476. 00000488  A87F                     syscall    SubPt
  477. 0000048A  EA27                     asr        D7.b, D5
  478. 0000048C  A539                     syscall    ReadDateTime, flags=5
  479. 0000048E  E9A5                     asl        D5, D4
  480. 00000490  FE57 DDD0                .extension 0xE57 <<F/1/7>>, 0xDDD0 // unimplemented
  481. label00000494:
  482. 00000494  467C 64BC E4A1           not.w      0x64BCE4A1
  483. 0000049A  FCAE C031                .extension 0xCAE <<F/2-3/6>> // unimplemented
  484. 0000049E  4325                     .invalid   1, -[A5] // invalid opcode 4 with b == 4
  485. 000004A0  637A                     bls        +0x7C /* 0000051C */
  486. 000004A2  193A 47FA                move.b     -[A4], [PC + 0x47FA /* 00004C9E, cstring ""<EOF> */]
  487. // begin alternate branch 000004A4-000004A8
  488. fn000004A4:
  489. 000004A4  47FA FF4A                lea.l      A3, [PC - 0xB6 /* 000003F0, value 0x4A000, cstring "" */]
  490. // end alternate branch 000004A4-000004A8
  491. fn000004A4: // (misaligned)
  492. 000004A6  FF4A                     .extension 0xF4A <<F/4-5/7>> // unimplemented
  493. 000004A8  4A42                     tst.w      D2
  494. 000004AA  6A06                     bpl        +0x8 /* 000004B2 */
  495. 000004AC  47FA FF9C                lea.l      A3, [PC - 0x64 /* 0000044A, value 0xFFFDCCCC */]
  496. 000004B0  4442                     neg.w      D2
  497. label000004B2:
  498. 000004B2  97FC 0000 000A           sub.l      A3, 0xA /* '\n' */
  499. label000004B8:
  500. 000004B8  D7FC 0000 000A           add.l      A3, 0xA /* '\n' */
  501. 000004BE  4A42                     tst.w      D2
  502. 000004C0  670E                     beq        +0x10 /* 000004D0 */
  503. 000004C2  E24A                     lsr        D2.w, 1
  504. 000004C4  64F2                     bcc        -0xC /* 000004B8 */
  505. 000004C6  3F02                     move.w     -[A7], D2
  506. 000004C8  6100 FE8A                bsr        -0x174 /* 00000354 */
  507. 000004CC  341F                     move.w     D2, [A7]+
  508. 000004CE  60E8                     bra        -0x16 /* 000004B8 */
  509. label000004D0:
  510. 000004D0  4E75                     rts
  511. export_566:
  512. 000004D2  2042                     movea.l    A0, D2
  513. 000004D4  202F 0004                move.l     D0, [A7 + 0x4]
  514. 000004D8  2400                     move.l     D2, D0
  515. 000004DA  4840                     swap.w     D0
  516. 000004DC  3400                     move.w     D2, D0
  517. 000004DE  E698                     ror        D0, 3
  518. 000004E0  3200                     move.w     D1, D0
  519. 000004E2  0240 0FFF                andi.w     D0, 0xFFF
  520. 000004E6  0241 E000                andi.w     D1, 0xE000
  521. 000004EA  0640 3800                addi.w     D0, 0x3800 /* '8\0' */
  522. 000004EE  0242 7F80                andi.w     D2, 0x7F80
  523. 000004F2  6604                     bne        +0x6 /* 000004F8 */
  524. 000004F4  4280                     clr.l      D0
  525. 000004F6  4281                     clr.l      D1
  526. label000004F8:
  527. 000004F8  4842                     swap.w     D2
  528. 000004FA  0242 8000                andi.w     D2, 0x8000
  529. 000004FE  8042                     or.w       D0, D2
  530. 00000500  4841                     swap.w     D1
  531. 00000502  4241                     clr.w      D1
  532. 00000504  4840                     swap.w     D0
  533. 00000506  2408                     move.l     D2, A0
  534. 00000508  4E75                     rts
  535. export_567:
  536. 0000050A  2042                     movea.l    A0, D2
  537. 0000050C  2243                     movea.l    A1, D3
  538. 0000050E  202F 0004                move.l     D0, [A7 + 0x4]
  539. 00000512  222F 0008                move.l     D1, [A7 + 0x8]
  540. 00000516  2400                     move.l     D2, D0
  541. 00000518  0880 001F                bclr.b     D0, 0x1F
  542. label0000051C:
  543. 0000051C  4841                     swap.w     D1
  544. 0000051E  3401                     move.w     D2, D1
  545. 00000520  0242 2000                andi.w     D2, 0x2000 /* ' \0' */
  546. 00000524  4841                     swap.w     D1
  547. 00000526  8242                     or.w       D1, D2
  548. 00000528  0681 0FFF FFFF           addi.l     D1, 0xFFFFFFF
  549. 0000052E  4283                     clr.l      D3
  550. 00000530  D183                     addx.l     D0, D3
  551. 00000532  4840                     swap.w     D0
  552. 00000534  0C40 47F0                cmpi.w     D0, 0x47F0
  553. 00000538  650A                     bcs        +0xC /* 00000544 */
  554. 0000053A  2002                     move.l     D0, D2
  555. 0000053C  2408                     move.l     D2, A0
  556. 0000053E  2609                     move.l     D3, A1
  557. 00000540  4EED 013A                jmp        [A5 + 0x13A /* export_35 */]
  558. label00000544:
  559. 00000544  0C40 3810                cmpi.w     D0, 0x3810
  560. 00000548  6408                     bcc        +0xA /* 00000552 */
  561. 0000054A  4280                     clr.l      D0
  562. 0000054C  0040 3800                ori.w      D0, 0x3800 /* '8\0' */
  563. 00000550  4281                     clr.l      D1
  564. label00000552:
  565. 00000552  0440 3800                subi.w     D0, 0x3800 /* '8\0' */
  566. 00000556  4840                     swap.w     D0
  567. 00000558  E788                     lsl        D0, 3
  568. 0000055A  E799                     rol        D1, 3
  569. 0000055C  0241 0007                andi.w     D1, 0x7
  570. 00000560  8041                     or.w       D0, D1
  571. 00000562  0282 8000 0000           andi.l     D2, 0x80000000
  572. 00000568  8082                     or.l       D0, D2
  573. 0000056A  2408                     move.l     D2, A0
  574. 0000056C  2609                     move.l     D3, A1
  575. 0000056E  4E75                     rts
  576.